home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / dockob / usertest.kob < prev    next >
Encoding:
Text File  |  1996-02-15  |  1.8 KB  |  125 lines
  1.  
  2. /* ユーザーイベントテスト    by v914AKSTN.
  3.  
  4. dim str menu(7) = {
  5.     " タルト・タタン",
  6.     "クロカンブッシュ",
  7.     " 蒸しプディング",
  8.     "シャンパンケーキ",
  9.     " ムスカディーヌ",
  10.     "   ティラミス",
  11.     "  ダッコワーズ",
  12.     "  ミルフィーユ"
  13. }
  14.  
  15.     /* 配列のサイズは必要に応じて大きく
  16. dim char sheet1(1023),sheet2(1023)
  17.  
  18. int mes=0
  19. int flag=0
  20. int h,v,h0,v0
  21. str string
  22.  
  23.  
  24. WindowTitleOpen( 1, WINX, WINY, 256, 192, 0, "UserTest", 3 )
  25. GraphicInit( 1,16 )
  26. end
  27.  
  28.  
  29.  
  30. /* りどろー
  31. func Eredraw( wno )
  32.     int i,j
  33.  
  34.     switch flag
  35.     case 0:
  36.         DrawClear( wno, 1 )
  37.         break
  38.     case 1:
  39.         for i=0 to h0
  40.         for j=0 to v0
  41.             DrawSymbol( wno, i*h, j*16, string )
  42.         next
  43.         next
  44.         break
  45.     case 2:
  46.         for i=0 to h0
  47.         for j=0 to v0
  48.             DrawPut( wno, i*h, j*v, h, v, sheet1, sheet2 )
  49.         next
  50.         next
  51.         break
  52.     case 3:
  53.         DrawClear( wno, 2 )
  54.         for i=0 to h0
  55.         for j=0 to v0
  56.             DrawGraphicPut( wno, i*h, j*v, i*h+h-1, j*v+v-1, sheet1 )
  57.         next
  58.         next
  59.         break
  60.     endswitch
  61. endfunc
  62.  
  63.  
  64.  
  65. /* まうす
  66. func Emouse( wno )
  67.     int xx,yy,p
  68.  
  69.     if info_Lon then {    /* 転送
  70.         SendUserString( menu( mes ) )
  71.         return( 1 )
  72.     }
  73.     if info_Ron then {    /* めにゅう
  74.         WindowGetPosition( wno, xx, yy )
  75.         p=PopUpMenu( xx+info_x-8, yy+info_y+16, menu )
  76.         if p>=0 then mes=p
  77.         return( 1 )
  78.     }
  79.     return( 0 )
  80. endfunc
  81.  
  82.  
  83.  
  84. /* ゆうざあ
  85. func Euser( wno )
  86.  
  87.     error off
  88.     /*? info_ComData
  89.     switch info_ComData
  90.     case 3:
  91.         GetUserSheet( h, v, sheet1, sheet2 )
  92.         flag=2
  93.         break
  94.     case 5:
  95.         GetUserGraphic( h, v, sheet1 )
  96.         flag=3
  97.         break
  98.     default:
  99.         if info_ComData<3 then break    /* 謎
  100.         GetUserString( string )
  101.         flag=1
  102.         h=len(string)*8
  103.         v=16
  104.         break
  105.     endswitch
  106.  
  107.     if errno or h=0 or v=0 then {        /* 謎
  108.         string="データ大きすぎ"
  109.         flag=1
  110.         h=len(string)*8
  111.         v=16
  112.     }
  113.     error on
  114.  
  115.     h0=255/h
  116.     v0=191/v
  117.  
  118.     Eredraw( wno )
  119.     return( 1 )
  120. endfunc
  121.  
  122.  
  123. /* おわり
  124.  
  125.